﻿Namespace Compras
    Public Class frmOrdenCompraLst

        Private Sub frmOrdenCompraLst_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub

        Private Sub frmOrdenCompraLst_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
            LoadParameter()
        End Sub

        Public Sub LoadParameter()
            CargarPRoveedor()
        End Sub

        Public Sub CargarPRoveedor()
            Dim obj As New Farmacia.Business.Kardex.Proveedor
            Dim oCol As Farmacia.Entity.Kardex.ProveedorCol
            oCol = obj.Combo(True, "Todos")

            Me.cbbProveedor.DisplayMember = "Nombre"
            Me.cbbProveedor.ValueMember = "ProveedorId"
            Me.cbbProveedor.DataSource = oCol


        End Sub

        Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

        End Sub

        Private Sub btn_Agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Agregar.Click
            Dim frm As New frmOrdenCompraPopup
            If frm.ShowDialog() = Windows.Forms.DialogResult.OK Then

            End If

        End Sub
    End Class
End Namespace
